state <- map_data("state")
county <- map_data("county")
lowa_point <- data.frame("x" = -86.905274, "y" = 36.269134)
tn <- county %>%
filter(region=="tennessee")
co <- county %>%
filter(region=="tennessee") %>%
filter(subregion=="davidson")
ggplot() + geom_polygon(data = state, aes(x=long, y = lat, group = group),
fill = "white", color="black") +
geom_polygon(data = tn, aes(x=long, y = lat, group = group),
fill = "gray", color="black") +
geom_polygon(data = co, aes(x=long, y = lat, group = group),
fill = "yellow", color="black") +
geom_point(data = lowa_point, aes(x=x,y=y), color="navy") +
coord_fixed(xlim = c(-90, -82.5), ylim = c(34.8, 37), ratio = 1.2) +
xlab("Longitude") + ylab("Latitude") + ggtitle("Beaman Park, Davidson Co., TN")
Map of one of my study sites, located in the Cheatham Wildlife Management Area in Cheatham County, TN.
lowaOGR <- readOGR("./data/Beaman2021.kml")
OGR data source with driver: KML
Source: "/Users/JlaMacAir/Documents/r_docs/personal-website/data/Beaman2021.kml", layer: "beamanlowa2021.csv"
with 6 features
It has 2 fields
lowa2OGR <- readOGR("./data/Rotary2021.kml")
OGR data source with driver: KML
Source: "/Users/JlaMacAir/Documents/r_docs/personal-website/data/Rotary2021.kml", layer: "rotary_lowa_2021.csv"
with 3 features
It has 2 fields
lowa3OGR <- readOGR("./data/Schiller2021.kml")
OGR data source with driver: KML
Source: "/Users/JlaMacAir/Documents/r_docs/personal-website/data/Schiller2021.kml", layer: "schiller_lowa_2021.csv"
with 3 features
It has 2 fields
lowa4OGR <- readOGR("./data/Cheatham2021.kml")
OGR data source with driver: KML
Source: "/Users/JlaMacAir/Documents/r_docs/personal-website/data/Cheatham2021.kml", layer: "cheatham_lowa_2021.csv"
with 4 features
It has 2 fields
Photo of a Louisiana Waterthrush from one of our study sites:
Louisiana Waterthrush singing:
VIDEO
LS0tCnRpdGxlOiAiTWFwcGluZyBpbiBSIgphdXRob3I6ICJKZW5uYSBBdG1hIgpkYXRlOiAiYHIgU3lzLkRhdGUoKWAiCm91dHB1dDoKICBodG1sX2RvY3VtZW50OgogICAgZGZfcHJpbnQ6IHBhZ2VkCiAgZmlnX2NhcHRpb246IHllcwogIGh0bWxfbm90ZWJvb2s6IGRlZmF1bHQKLS0tCgpgYGB7ciBzZXR1cCwgaW5jbHVkZT1GQUxTRX0KIyBpbnN0YWxsLnBhY2thZ2VzKCdwYWNtYW4nKQojIHBhY21hbjo6cF9sb2FkKCJnZ3NuIiwibGVhZmxldCIsIm1hcGRhdGEiLCJtYXB0b29scyIsIk9wZW5TdHJlZXRNYXAiLCJyZ2RhbCIsInRpZHl2ZXJzZSIpCgpsaWJyYXJ5KGxlYWZsZXQpCmxpYnJhcnkobWFwZGF0YSkKbGlicmFyeShtYXB0b29scykKbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkocmdkYWwpCmBgYAoKYGBge3J9CnN0YXRlIDwtIG1hcF9kYXRhKCJzdGF0ZSIpCmNvdW50eSA8LSBtYXBfZGF0YSgiY291bnR5IikKbG93YV9wb2ludCA8LSBkYXRhLmZyYW1lKCJ4IiA9IC04Ni45MDUyNzQsICJ5IiA9IDM2LjI2OTEzNCkKCnRuIDwtIGNvdW50eSAlPiUgCiAgZmlsdGVyKHJlZ2lvbj09InRlbm5lc3NlZSIpCgpjbyA8LSBjb3VudHkgJT4lIAogIGZpbHRlcihyZWdpb249PSJ0ZW5uZXNzZWUiKSAlPiUgCiAgZmlsdGVyKHN1YnJlZ2lvbj09ImRhdmlkc29uIikKCmdncGxvdCgpICsgZ2VvbV9wb2x5Z29uKGRhdGEgPSBzdGF0ZSwgYWVzKHg9bG9uZywgeSA9IGxhdCwgZ3JvdXAgPSBncm91cCksCiAgICAgICAgICAgICAgICAgICAgICAgIGZpbGwgPSAid2hpdGUiLCBjb2xvcj0iYmxhY2siKSArIAogICAgICAgICAgIGdlb21fcG9seWdvbihkYXRhID0gdG4sIGFlcyh4PWxvbmcsIHkgPSBsYXQsIGdyb3VwID0gZ3JvdXApLAogICAgICAgICAgICAgICAgICAgICAgICBmaWxsID0gImdyYXkiLCBjb2xvcj0iYmxhY2siKSArIAogICAgICAgICAgIGdlb21fcG9seWdvbihkYXRhID0gY28sIGFlcyh4PWxvbmcsIHkgPSBsYXQsIGdyb3VwID0gZ3JvdXApLAogICAgICAgICAgICAgICAgICAgICAgICBmaWxsID0gInllbGxvdyIsIGNvbG9yPSJibGFjayIpICsgCiAgICAgICAgICAgZ2VvbV9wb2ludChkYXRhID0gbG93YV9wb2ludCwgYWVzKHg9eCx5PXkpLCBjb2xvcj0ibmF2eSIpICsKICBjb29yZF9maXhlZCh4bGltID0gYygtOTAsIC04Mi41KSwgIHlsaW0gPSBjKDM0LjgsIDM3KSwgcmF0aW8gPSAxLjIpICsgCiAgeGxhYigiTG9uZ2l0dWRlIikgKyB5bGFiKCJMYXRpdHVkZSIpICsgZ2d0aXRsZSgiQmVhbWFuIFBhcmssIERhdmlkc29uIENvLiwgVE4iKQoKYGBgCgo8c3BhbiBzdHlsZT0iY29sb3I6Z3JlZW4iPk1hcCBvZiBvbmUgb2YgbXkgc3R1ZHkgc2l0ZXMsIGxvY2F0ZWQgaW4gdGhlIENoZWF0aGFtIFdpbGRsaWZlIE1hbmFnZW1lbnQgQXJlYSBpbiBDaGVhdGhhbSBDb3VudHksIFROLjwvc3Bhbj4KYGBge3J9Cmxvd2FPR1IgPC0gcmVhZE9HUigiLi9kYXRhL0JlYW1hbjIwMjEua21sIikKbG93YTJPR1IgPC0gcmVhZE9HUigiLi9kYXRhL1JvdGFyeTIwMjEua21sIikKbG93YTNPR1IgPC0gcmVhZE9HUigiLi9kYXRhL1NjaGlsbGVyMjAyMS5rbWwiKQpsb3dhNE9HUiA8LSByZWFkT0dSKCIuL2RhdGEvQ2hlYXRoYW0yMDIxLmttbCIpCmBgYApgYGB7ciBNYXAsIGVjaG89RkFMU0V9CmxlYWZsZXQobG93YU9HUikgJT4lIAogIGFkZFRpbGVzKCkgJT4lCiAgYWRkUHJvdmlkZXJUaWxlcyhwcm92aWRlcnMkQ2FydG9EQi5Qb3NpdHJvbiwgZ3JvdXAgPSAiQ2FydG9EQiIpICU+JQogIGFkZFByb3ZpZGVyVGlsZXMocHJvdmlkZXJzJEVzcmkuTmF0R2VvV29ybGRNYXAsIGdyb3VwID0gIk5hdEdlbyIpICU+JQogIGFkZFByb3ZpZGVyVGlsZXMocHJvdmlkZXJzJEVzcmkuV29ybGRJbWFnZXJ5LCBncm91cCA9ICJFU1JJIikgJT4lCiAgICBzZXRWaWV3KGxuZyA9IC04Ni45MTc4MjAsIGxhdCA9IDM2LjI1OTM2MCwgem9vbSA9IDE2KSAlPiUKICBhZGRDaXJjbGVNYXJrZXJzKHBvcHVwID0gbG93YU9HUkBkYXRhJERlc2NyaXB0aW9uLAogICAgICAgICAgICAgICAgICAgbGFiZWwgPSBsb3dhT0dSQGRhdGEkTmFtZSwKICAgICAgICAgICAgICAgICAgIHdlaWdodCA9IDIsCiAgICAgICAgICAgICAgICAgICBjb2xvciA9ICJ3aGl0ZSIsCiAgICAgICAgICAgICAgICAgICBmaWxsQ29sb3IgPSAiZ3JlZW4iLAogICAgICAgICAgICAgICAgICAgZmlsbE9wYWNpdHkgPSAwLjkpICU+JQogIGFkZExheWVyc0NvbnRyb2woCiAgICBiYXNlR3JvdXBzID0gYygiT1NNIiwgIkNhcnRvREIiLCAiTmF0R2VvIiwgIkVTUkkiKSwKICAgIG9wdGlvbnMgPSBsYXllcnNDb250cm9sT3B0aW9ucyhjb2xsYXBzZWQgPSBGQUxTRSksCiAgICBvdmVybGF5R3JvdXBzID0gIkJlYW1hbiBQYXJrIikKYGBgCmBgYHtyIE1hcDIsIGVjaG89RkFMU0V9CmxlYWZsZXQobG93YTJPR1IpICU+JSAKICBhZGRUaWxlcygpICU+JQogIGFkZFByb3ZpZGVyVGlsZXMocHJvdmlkZXJzJENhcnRvREIuUG9zaXRyb24sIGdyb3VwID0gIkNhcnRvREIiKSAlPiUKICBhZGRQcm92aWRlclRpbGVzKHByb3ZpZGVycyRFc3JpLk5hdEdlb1dvcmxkTWFwLCBncm91cCA9ICJOYXRHZW8iKSAlPiUKICBhZGRQcm92aWRlclRpbGVzKHByb3ZpZGVycyRFc3JpLldvcmxkSW1hZ2VyeSwgZ3JvdXAgPSAiRVNSSSIpICU+JQogICAgc2V0VmlldyhsbmcgPSAtODcuMjY1MjEzLCBsYXQgPSAzNi40OTgwOTQsIHpvb20gPSAxNikgJT4lCiAgYWRkQ2lyY2xlTWFya2Vycyhwb3B1cCA9IGxvd2EyT0dSQGRhdGEkRGVzY3JpcHRpb24sCiAgICAgICAgICAgICAgICAgICBsYWJlbCA9IGxvd2EyT0dSQGRhdGEkTmFtZSwKICAgICAgICAgICAgICAgICAgIHdlaWdodCA9IDIsCiAgICAgICAgICAgICAgICAgICBjb2xvciA9ICJibGFjayIsCiAgICAgICAgICAgICAgICAgICBmaWxsQ29sb3IgPSAibGlnaHRibHVlIiwKICAgICAgICAgICAgICAgICAgIGZpbGxPcGFjaXR5ID0gMC45KSAlPiUKICBhZGRMYXllcnNDb250cm9sKAogICAgYmFzZUdyb3VwcyA9IGMoIk9TTSIsICJDYXJ0b0RCIiwgIk5hdEdlbyIsICJFU1JJIiksCiAgICBvcHRpb25zID0gbGF5ZXJzQ29udHJvbE9wdGlvbnMoY29sbGFwc2VkID0gRkFMU0UpLAogICAgb3ZlcmxheUdyb3VwcyA9ICJSb3RhcnkgUGFyayIpCmBgYAoKYGBge3IgTWFwMywgZWNobz1GQUxTRX0KbGVhZmxldChsb3dhM09HUikgJT4lIAogIGFkZFRpbGVzKCkgJT4lCiAgYWRkUHJvdmlkZXJUaWxlcyhwcm92aWRlcnMkQ2FydG9EQi5Qb3NpdHJvbiwgZ3JvdXAgPSAiQ2FydG9EQiIpICU+JQogIGFkZFByb3ZpZGVyVGlsZXMocHJvdmlkZXJzJEVzcmkuTmF0R2VvV29ybGRNYXAsIGdyb3VwID0gIk5hdEdlbyIpICU+JQogIGFkZFByb3ZpZGVyVGlsZXMocHJvdmlkZXJzJEVzcmkuV29ybGRJbWFnZXJ5LCBncm91cCA9ICJFU1JJIikgJT4lCiAgICBzZXRWaWV3KGxuZyA9IC04Ny4zMTYwNjAsIGxhdCA9IDM2LjQzNzMyOSwgem9vbSA9IDE2KSAlPiUKICBhZGRDaXJjbGVNYXJrZXJzKHBvcHVwID0gbG93YTNPR1JAZGF0YSREZXNjcmlwdGlvbiwKICAgICAgICAgICAgICAgICAgIGxhYmVsID0gbG93YTNPR1JAZGF0YSROYW1lLAogICAgICAgICAgICAgICAgICAgd2VpZ2h0ID0gMiwKICAgICAgICAgICAgICAgICAgIGNvbG9yID0gImJsYWNrIiwKICAgICAgICAgICAgICAgICAgIGZpbGxDb2xvciA9ICJvcmFuZ2UiLAogICAgICAgICAgICAgICAgICAgZmlsbE9wYWNpdHkgPSAwLjkpICU+JQogIGFkZExheWVyc0NvbnRyb2woCiAgICBiYXNlR3JvdXBzID0gYygiT1NNIiwgIkNhcnRvREIiLCAiTmF0R2VvIiwgIkVTUkkiKSwKICAgIG9wdGlvbnMgPSBsYXllcnNDb250cm9sT3B0aW9ucyhjb2xsYXBzZWQgPSBGQUxTRSksCiAgICBvdmVybGF5R3JvdXBzID0gIkRyLiBTY2hpbGxlcidzIFByb3BlcnR5IikKYGBgCgpgYGB7ciBNYXA0LCBlY2hvPUZBTFNFfQpsZWFmbGV0KGxvd2E0T0dSKSAlPiUgCiAgYWRkVGlsZXMoKSAlPiUKICBhZGRQcm92aWRlclRpbGVzKHByb3ZpZGVycyRDYXJ0b0RCLlBvc2l0cm9uLCBncm91cCA9ICJDYXJ0b0RCIikgJT4lCiAgYWRkUHJvdmlkZXJUaWxlcyhwcm92aWRlcnMkRXNyaS5OYXRHZW9Xb3JsZE1hcCwgZ3JvdXAgPSAiTmF0R2VvIikgJT4lCiAgYWRkUHJvdmlkZXJUaWxlcyhwcm92aWRlcnMkRXNyaS5Xb3JsZEltYWdlcnksIGdyb3VwID0gIkVTUkkiKSAlPiUKICAgIHNldFZpZXcobG5nID0gLTg3LjA2MzUwNiwgbGF0ID0gMzYuMTg4MjgyLCB6b29tID0gMTYpICU+JQogIGFkZENpcmNsZU1hcmtlcnMocG9wdXAgPSBsb3dhNE9HUkBkYXRhJERlc2NyaXB0aW9uLAogICAgICAgICAgICAgICAgICAgbGFiZWwgPSBsb3dhNE9HUkBkYXRhJE5hbWUsCiAgICAgICAgICAgICAgICAgICB3ZWlnaHQgPSAyLAogICAgICAgICAgICAgICAgICAgY29sb3IgPSAid2hpdGUiLAogICAgICAgICAgICAgICAgICAgZmlsbENvbG9yID0gInJlZCIsCiAgICAgICAgICAgICAgICAgICBmaWxsT3BhY2l0eSA9IDAuOSkgJT4lCiAgYWRkTGF5ZXJzQ29udHJvbCgKICAgIGJhc2VHcm91cHMgPSBjKCJPU00iLCAiQ2FydG9EQiIsICJOYXRHZW8iLCAiRVNSSSIpLAogICAgb3B0aW9ucyA9IGxheWVyc0NvbnRyb2xPcHRpb25zKGNvbGxhcHNlZCA9IEZBTFNFKSwKICAgIG92ZXJsYXlHcm91cHMgPSAiQ2hlYXRoYW0gV01BIikKYGBgCjxzcGFuIHN0eWxlPSJjb2xvcjpncmVlbiI+KlBob3RvIG9mIGEgTG91aXNpYW5hIFdhdGVydGhydXNoIGZyb20gb25lIG9mIG91ciBzdHVkeSBzaXRlczoqPC9zcGFuPgoKIVtDb2xvciBiYW5kcyBtYWtlIGlkZW50aWZ5aW5nIGluZGl2aWR1YWxzIGluIHRoZSBmaWVsZCBwb3NzaWJsZSB3aXRob3V0IHJlY2FwdHVyaW5nIHRoZW1dKGltYWdlcy8zMjkwNzAwOTEuSlBHKXt3aWR0aD01MCV9Cgo8c3BhbiBzdHlsZT0iY29sb3I6Z3JlZW4iPipMb3Vpc2lhbmEgV2F0ZXJ0aHJ1c2ggc2luZ2luZzoqPC9zcGFuPgoKPGlmcmFtZSB3aWR0aD0iNzYwIiBoZWlnaHQ9IjUxNSIgc3JjPSJodHRwczovL3d3dy55b3V0dWJlLmNvbS9lbWJlZC9kZHlTV1NwcHRWbyIgZnJhbWVib3JkZXI9IjAiIGFsbG93ZnVsbHNjcmVlbj48L2lmcmFtZT4K